Easy Baby Massage/Easy Baby Massage.iso/pc/content/main.dcr/Internal_48_next pre.ls

Text File | 2007-04-22 | 492 b | 32 lines

property pself, handle

on beginSprite
  pself = sprite(the currentSpriteNum)
end

on mouseEnter
end

on mouseLeave
end

on mouseWithin me
  if the stillDown then
    if the timeoutLapsed > 60 then
      do(handle & " 0.02")
    end if
  end if
end

on mouseDown
  if handle <> VOID then
    do(handle & " 0.05")
  end if
end

on getPropertyDescriptionList
  description = [:]
  addProp(description, #handle, [#default: EMPTY, #format: #string, #comment: "command"])
  return description
end